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SURFACE MOUNT COMPONENTS j 

The printed circuit boards that we have been familiar with so far 
(like the ZX-81/TS1000 and TS2068 mainboards) have been the conventional 
kind in which integrated circuits (or their sockets) transistors and res- 
istors etc, are mounted with their leads througn holes in the board to 
solder pads or eyelets etched on the otner side of the board. This is the 
way things used to be done before the need to pack more components into 
smaller spaces (as in portable video cameras etc.) led to a system that 
used components significantly smaller than those of the older technology. 
The case that houses a small transistor these days for surface mount tech- 





nology is harly bigger than tne chip itself, 2N3904 7LLSOO 
So surface mount technology used increasingly 

in new microcomputer designs also offers the 555 3 
hardware hacxer using low cost or surplus 2 

computers that he would not be afraid to # 

hack the oprortunity to add his own circuit 7141 
boards to drive accessories etc. as small as F NO1L, 


one inch by one inch so that they are easily 

mounted on the board over a dip socket or Fig.l 

using silicon glue right on top of a spare Actual Size 5.0. Parts 
area or cool running component on the board, 

Printed circuit boards also need not necessarily be drilled, allowing less 
opportunity to damage them whiie drilling or missing pads with over-size 
drills, a proolem with the through the board hole mount technology. 

Looking at Fig. 1 with the surface mount components drawn to scale 

shows you how they compare to d.i.p. package and TO-92 components tnat they 
replace, Similar economies can be realized with the passive components, 
resistors, cavacitors (chip) and aluminum and tantalum electrolytic cap- 
acitors are all available in this format. 
Table l indicates the standard parts that 2N3904 (NPN) 
have SO-23, surface mount component equiv- 2N3906 (PNP) 
alents available through a parts supplier  2N2222A(NPN) amplifying-linear 
like Active Components Sales (with branches 2N2907 (PNP) Ħ " 


switching-disital 
tt 1? 


in many cities in the U.S. and Canada). 2N918 (NPN) R.F. amplifier 
Suppliers of passive components are IN4148 diode switching-digital 

harder to find. Two of them that advert- 74LSxx series TTL 

ised recently are: Value Computer, 14000 series (4000 CMOS) 

Box 1151, Alta Loma, CA 91701, USA, (714) 741 op amp. 

987-2414 and Garrett Inst. & Comp ./ IEU INC). 253 timer-pulser (std.-bipolar) 

3130 Skyway Dr, #104, Santa Maria, CA 555 CMOS timer-pulser - 

93455, USA (805)922-0594. However you . 324 .quad op amp. ' 

need not buv these often expensive passive | 

components to experiment with, Standard Table 1 -Parts Available 


1/8 watt resistors (Radio Shack #271-311) 
can be used and small capacitors (military scuare chip for example) and 
tantalum electrolytic teardrop kind can be adapted for surface mount applic- 
ations, ` re RI SAT AS MIET o g 

~~ How to make a surface mount printed circuit board? ~The standard ways 
using an etch pen or Ceresist rub-on lines and pads or drafting tape will 
work just as in regular p.c.b. work. However since the lines can be finer 
one must be more careful about flaws and breaks in lines. . Also it is wise 
— to use large pads for certain components that will take a little heat. :- 
Remember the power rating formula for resistors etc.P=voltage drop x.current 
x 1.4 (safety factor) should be below 1/8 watt for these designs as opposed 
to the + or 4 watt of the older projects using larger components. -Simply 
reducing current flow in your. designs should accomplish this, So,p.c.b.- 
making is similar to ordinary p.c.0.~making less the hassle -{in most cases 
of drillinz holes though them with fine and fragile drill bits, zš. 0. 
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Soldering is more delicate and should use a smaller soldering iron 
than the standard 30 watt pencil. A 15 watt pencil iron like Radio/Shack 
F+Ó6L-2051 should be considered or at the very least soldering using an ext- 
ension tip made my wrapping some solid copper hook-up wire around the tip 
of an ordinary iron and running it out to 3 inch soldering point away from 
the iron tip end. And you must be extra careful about soldering adjacent 
pins in the integrated circuits together and exposing any component to much 
heat for very long. To hold the component in place while soldering it, you 
can use masking tape along one side (the opposite to that being soldered of 
course) or a dab of say silicone glue (but make sure the pins are not up-in- 
the-air, away from the solder pads), l 

In repairing equipment with surface mount components vou should be aware 
of some special cautions. For one, you should assume that all components 
are static sensitive (damagable by stray static from walking accross a car- 
pet for example) unless proven otherwise. Use static-free chemical sprays 
only. The surface mount components are also much more sensitive to shock 
(vhysical shock) and heat damage as are their attachment points to the board. 
The long leads of conventional components isolate them from physical vibr- 
ation and shock as well as heat variations much more than the short terminals 
of surface mount components. So use of heat-guns and freeze soray must be 
very moderate and careful. And of course static inhibiting freeze spray 
should be used. Also when removing a component or touching the board with 
a tool or pulling a board out of a connector mounting one must be careful 
not to flex the board as this can cause the surface mount components to 
become detatched or traces or solder joints to break open in a way that the 
hardier conventional component boards are not so sensitive to, beins better 
anchored with their through-the-board leads and larger, wider copper traces, 

Finally, in testing surface mount components, the same tests that can 
be used on regular boards are still used but when placing the test equip- 
ment or multi-meter leads on the leads of the surface mount components you 
are dealing with two additional problems. The leads are so fine and the 
terminals so close together that it is much easier to damage or short leads 
if your hand slips or is sloppy in not getting the probe right on the right 
component terminal. The other problem is that the component particularly for 
resistorsand capacitors has its guts exposed so to speak so that placing the 
probe on the end or slipping it accross the end of a component such as a 
resistor can damage the joint between the leadless terminal and the pill of 
resistive material or even damage the resitive material changing the resist- 
or's value, The proper place to place the probe on capacitors or resistors 
with only a metal end rather than a lead is on the pad of the circuit that 
it is soldered to, as far from the actual solder of the connection as possi- 
ble to avoid breaking that joint too. So the overall guiding thought. in 
dealing with this new technology is its increased fragility and fineness. 

The integrated circuit pins when seen from the top go around the outside 

starting from pin 1, in counter-clockwise direction. Pin one is often shown 
by a little indented dot opposite it. In the large, square packages, -of - 
LSI/VLSI chips, thé corner where pin l is found is ‘cut-off at an angle not 
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a pointv square like the other corners. For trans-. 7. 


Astors.Fig.. 2. Shows the terminals. du. o a l EU 28 a 
c Now for a brief list of part numbers:(x=any no.) . . għeb 0 20 EL IL 
2N2222A 'sMMST2222A, "2 3904=MMST3904 ; 72N3906 = 0 pan} ts LI 
'MMST3906; 2N2907: MMST2907A, pow. driver 2N2222A T= 17n tieg i 
aRXT2222À, 1N4148=RLSL148, INLOOL=RLR4001,. 0 ma ero 
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Zener diode, 5.1 volt =RLZ5231B, 741 op amp = 0.33 MO 4 05 an oa e 

BA14741AF, dual op „amp (1M358 eqiv.)=BAL558F,°.. ... Pig. 2 -S0-23 | . 
'IILHOXX = BUTLHCXxxF , 74 LSxx SSN74LSxxD y CALOOX= ` o.t. pne kien a eee Surface) 
BULOOXEP quad op amp (IM324 eguiv,JeBALO3245. 0 e a a 


NE555SOIC2=(bipolar NE555. timer-pulser). s-s. es A Tn O 
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LIGHT COMPUTERS i 01202 
by Bill Harmer 


When one starts out mentioning light computers, most people are 

not sure what they are and how they differ from electronic computers. 
One might explain firstly that it is not the task that makes them diff- 
erent, they would be designed to do the same sort of computing and data 
processing jobs that electronic computers do currently, but it is how ` 
they do it that maxes them different. In short, they use light rather 
than electrons to make them work, 

In an electronic computer it is the switching on and off of the 
flow of electrons that is used to represent the bits and bytes of data 
and logical relations in computer operations, Thus the key element of 
a digital computer is the transistor switch. It may be a single trans- 
istor in a case as with the older computers of the 1950's and 1960's or 
it may be tnat the transistor is one of many on a silicon chip called 
an integrated circuit. From these switches, Boolean logic operations, 
routing of data, storage of data in flip-flops or memory cells of MOSFET 
transistors and arithmetic operations are built up. 

A light computer would similarly use switches as its basic building 
block but the switches would switch light rather than electrons. The light 
would flow along fibre optic cables of glass rather than metal wires and 
through light pipes engraved in integrated circuit chips and boards. The 
actual switching might switch a light beam on or off or switch its freq 
uencies or its polarization to give three possible examples. But the 
principle of switcning light would be the same as with switcning electrons 
in a transistor, one signal controlling the switching of another, typically 
a small input signal switching a larger output signal. 

Are we likely to see a light (or photonic as some say) computer in 
the near future? The writer wouldn't think that a purely light based comp- 
uter will be seen for more than a decade or even decades into tne future, 
Why? So far the building of light switching components and photonic (light) 
integrated circuits has only been done in the laboratory and at too low a 
level of complexity (only a few gates per integrated circuit) to compete 
with the current electronic technology by which thousands of gates can be 
put on a single silicon chip integrated circuit, 

What would be the advantage of a light based computer? The chief one 
is speed. Light simply can be switched faster than electrons and there is 
nothing like the stray capacitance of electrical circuits to slow it down. 
In addition possible parallelism (switching of more than one light signal 
at a time) and immunity to RFI/EMI interference are also mentioned. 

What we are likely to see a lot sooner is some form of hybrid light/ 
electronic computer as more fibre optic cables could be made use of in 
electronic computers, If fibre optic cables were used to wire up the 
different printed circuit boards of a super-computer, the faster travel of 
light down the optic cables would speed up the computer by allowing the 
data to travel more quickly between boards, ` In supercomputers the time 
taken to travel down a wire ista considerable limiting factor in data 
processing speed and for this reason many of the supercomputers are designed 
with their components arrayed in a circle as close to thesphvsical centre 
of the -computer as possible to cut down on the time wasted in bits and bytes 
travelling down long wires. But there is a limit to how much this dist- 
ance can thus be reduced and still make the computer complicated enough 
to do its job which requires as many boards as possible, IM | 
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With home computers, light pipes instead of wires would limit RFI 
(radio frequency interference) problems, preventing our computers from 
interfering with the use of others home entertainment electronics (like 
radios) and eliminating the crashes in our own computers, particularly 
portable models, caused by auto ignition systems and citizens' band 
radio transmitters. 

In addition certain wiring problems for VLSI and ULSI (very dense) 
integrated circuits migntbe able to be handled by using tiny fibre optic 
cables rather than wires to bring signals to and from the surface of the 
chip. This would not be possible with wires, which can not be made fine 
enough and must be bonded to rather large (relative to the rest of the 
componentst sizes) pads on the chip, 

What use of light components will be see in the near future? 

The closest to application in the personal computer area is the CD ROM, 
At the moment compact disks (CD's) are used for music only and the con- 
nections on the back of your CD player are meant to be hooked up only 

to your stereo amplifier. In the future additional connectors could 
hook up to your t.v. set to play rock videos from the disks and possibly 
through an RS-232 connector to your personal computer to access digital 
data on your screen and computer printer. This would be a CD ROM, you 
can't write on it but you can read from it into your computer. There has 
been talk of putting the whole Encyclopedia Britannica on a CD disk as 
well as tae phone directory for the whole of Canada, or a shelf of medica 
or technical jornals. These could be accessed on your computer screen, 

A laser RAM style of system, really a laser hard disk has been dev- 
eloped by Hitachi for industrial use. It uses a laser to read the magnet 
iccally encoded information on the disk. You can both read to and write 
on the disk with your computer. A cheaper version may come along for us. 

Fibre optics are to be used to hook up microcomputers in offices into 
a LAN, or local area network, so that they can share the use of periphera: 
and exchange messages and data, Fibre optic cables are less cumbersome 
in this use and do not have the RFI problems of metal cables. 

In looking at other attempts to speed up computer operation, two of 
them would seem to dove-tail, The development of gallium arsenide (Gass) 
electronic integrated circuit chips and the fact that since gallium arsen- 
ide is transparent it makes the ideal semiconductor to synthesize: both 
electronic and optical devices (like LED's and photodiodes and transistors 
on the ‘same chip. It is a natural for hybrid light/electronic devices _ 
and computers and its technology although proving harder .to use than 


Silicon chip methods is bound to show progress with the number of labs, 


including our local Northern Telcom/Bel1/Northern, working on perfecting 


it. | TT K ooo żar $ n ; 
'So now, in addition to the present technologv of electronic computers 
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“using silicon chip integrated circuits, we can see on the-horizon the 
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technology in the computers -of the future. .- 
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possibilility of computers..using superconductivity and Josephson junction 


“technology as well. as light -rather than electron based .data represent- 
ation... At the moment it is any one's guess which will be the prevailing 
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= ae ‘rst digital computers used t 
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——S ADAPTING PROGRAMS FOR DISK DRIVE 
0110 


by Bill Harmer 
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hen the writer got his disk drive from Larken Electronics, the _ 
task at hind was to transfer as manv as possible of the programs to disk, 
A typical cassette autosave routine like: 


9000 REM CASSETTE SAVE 

9010 CLS: 

9020 PRINT"CASSETTE SAVE BEGINS" 
9030 PANSE 200 


9040 CLS 

9050 SAVE"PROGRAM ONE" 
9060 CLS 

9070 GOTO 1 


was left in and a disk save routine 
was added like: 


eee? 


9500 REM DISK SAVE 
9510 CLS 


9520 
290 
9540 
2320 
9560 


PRINT USR 14336 
REM SAVE "PROG1,B1" 
SLOW 

CLS 

GOTO 1 


Then with these two routines within the prozram but orf by themselves 
simnly keying in the immediate command SOTO 9000 for a cassette save and 
GOTO 9500 for a disk save, the appropriate save routine could ve accessed 
so that on loading from cassette or disk the next time the program would 
be self-sterting at line l. 

Further program refinements allowed on some programs the access of 
a GOTO 9000 or GOTO 9500 by choosing on a menu the option of saving on 
cassette or disk. So with a few simple additions the vrograms could be 
adented to run conveniently on the Larxen disk system and still allow 
saving on cassette for swarving programs or back-up. 

Another disk save routine has been used to double check the save on 
the diskette by allowing the option of doing a disk directory with the 
vress of a single key once the GOTO 9500 routine is invoked. Sometimes 
the cisk operating svstem will appear to save your program but not real- 


ly do it and it indicates this in the directory by showing a 
the file label to indicate that no sectors have been assigned to this 
file and that in fact it hasn't been saved. 


opposite 


The routine is as follows: 


9500 REM DISK SAVE 

9510 CLS 

9520 PRINT USR 14336 

9530 REM SAVE "PROG1.Bl1" 

9540 SLOW 

9550 PRINT "VERIFY? (Y OR N)" 
9560 IF INKEYS<> "Y" AND INKEY$/ "" THEN GOTO 9600 
9570 IF INKEY$="" THEN GOTO 9560 
9580 PRINT USR 14336 

9590 REM DIRE 

9600 CLS 

9610 GOTO 1 


Sometimes there is a false "yes" response with the INKEYS but general- 


ly this routine 
stroke to use. 


; key- 
saves a lot of headaches and requires only a single 

An alternative routine uses INPUT instead of INKEY$. It 
is amazing to think that our little computer allows:self-starting pros- 
rams that even the Commodore 64 doesn't allow.normally. 
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| | PASCAL DISC HANDLER 
David has supplied us with many interesting articles in the 


past. Larry Kenny is of course the owner and distributer of the 
Larken disc drive. 


PASCAL DISK HANDLER 
FOR THE 
LARKEN DISK OPRERATING SYSTEM 


ARTICLE BY ` 
DAVID SOLLY 


PROGRAMS BY 
DAVID SOLLY 
AND 
LARRY KENNY 


Access to the Larken Disk Drive System from within 
a compiled HiSoft(TM) Pascal program is now 
possible thanks to the procedures developed by 
David Solly and Larry Kenny. This article 
demonstrates how to install these procedures and 
gives a practical demonstration on how they may be 
used within a simple directory program. The 
procedures described in this article are valid for 
both the Timex Sinclair 2068 and the ZX Spectrum 
versions of HiSoft Pascal. 


I have owned HiSoft Pascal, (henceforth Pascal), for the 
Timex Sinclair 2068 and the ZX Spectrum for a number of 
years now but the drawback with Pascal, as it is implemented 
on Sinclair computers, has been that there was no way to 
access a DOS from within a compiled program. It seemed 
ridiculous to put the effort into creating programs which 
ran like machine code once the source code was debugged, 
compiled and transfered to disk only to be forced to go back 
to a plodding tape operating system, (henceforth TOS), when 
I needed to save or enter data from within the compiled 
program. Finally I sat down and did some serious study of 
the problem, some head scratching, some question asking 
(especially of Larry Kenny, who is the creator of the Larken 
DOS, and Ken Schieman) and some experimentation. The result 
of this is the creation of the Pascal disk handler described 
below. 


The needs of LKDOS are the same as for the TOS. You are 
required to provide the name of your program, the starting 
address of the program and the lenght of the program. This 
is exactly what happens when you type within Basic: 


SAVE 'Mvprogram' CODE start, length. 


1000 


Pascal also passes the same information to the TOS when it 
saves out a variable through the use of the procedure: 


TOUT (’Myprogram’, ADDR (the name of the variable being 
saved), SIZE (the name of the variable being saved)); 


The crux of the problem is that, although both languages 
generate identical information, LKDOS can extract it only 
from within the Basic environment. Therefore, additional 
programming is need in order to transfer the save or load 
parameters to LKDOS from within the Pascal environment. 


The first steps towards transfering the required information 
form Pascal to LKDOS are to store the name, the start 
address, and the length of the varialble to be saved or 
loaded in a safe area of the RAM. This is a simple matter 
thanks to the very versatile POKE() function in Pascal. 
Unlike the POKE command available in Basic, this Pascal 
function can DOKE a number or POKE the contents of a whole 
character array starting at a given address. The first 
fifteen bytes of the printer buffer proved to be the safest 
area to which all the transfers can be achieved with the 
following lines: 


POKE (23300, 'Mvprogram'); 

POKE (23311, ADDR (name of variable)); 
and 

POKE (23313, SIZE (name of variable)); 


Vou can see these lines in a modified form in the 
demonstration program within the procedures GETNAME, 
DISKSAVE and DISKLOAD. 


Upon completion of these steps the next step is to copy the 
information from its storage place in the RAM to the 
appropriate routines in the LKDOS. Again to HiSoft includes 
within their implementation of Pascal the procedure INLINE() 
wich allows us to embed Z80 machine code within a Pascal 
procedure to accomplish our ends. 


The following is a disassembly of the machine code 


the procedure DOUT 


00010 
00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 


NAME 


PROGNM 


TEMP4 
TEMP2 
NMIF 
ADDR 
SIZE 
SVi 
SV2 


MOVE 


NZERO 


EQU 23300 
EQU 8226 

EQU 8243 

EQU 8241 

EQU 8194 

EQU 23311 
EQU 23313 
EQU 0204 

EQU 0207 

ORG 40000 

DI 

CALL 98 

LD HL,NAME 
LD DE, PROGNM 
LD BC,09 

LD A, (HL) 

CP O 

JR NZ,NZERO 
LD (HL),32 
LDI 

LD A,B 

OR C 

JR NZ, MOVE 
LD A, 11 

LD (NMIF),A 
CALL SV1 

LD HL, (ADDR) 
LD (TEMP4) ,HL 
LD HL, (SIZE) 
LD (TEMP2) ,HL 
CALL SV2 

LD A, (100) 
EI 


we we we y. 


we we we 44 we ws we We 


(Program provided by Larry Kenny of 


Navan, 


Ontario, 


Canada K4B 1H9, 


Tel: 


(Listing made using Zeus Assembler) 


1461 


used in 


Disable interrupt 

Turn on LKDOS cartridge 
Transfer file name 

to prognm 


Loop to catch any 
occurance of CHRġ 0 


$ replace with a space 


Save name 

Retrieve start address 
Set start address 
Retrieve length of save 
set length of save 
Second save data 

Exit cartridge 

Enable interrupt 


Larken Electronics, #2 
(613)-835-2680) 


The procedure DIN contains the same code except that SVI and 


SV2 are replaced with LD1 EQU 198 and LD2 EQU 201. The 
loop insures that the file 
correct number of spaces so that it totals 


name 


is 


MOVE 
padded out with the 
nine characters 


and spaces otherwise the file name may be corrupted and fail 
to reload. 


The following listing demonstrates how all the 


procedures 


described above are used within a complete Pascal program. 


The object of the program is to create a 


simple telephone 


directory which will allow you to store ten names and 
numbers, read the information stored in the directory, and 
read and write the information stored in the directory to 
disk using the Larken LKDOS. There is also a summation of 
this article contained in the procedure SONGANDDANCE. 


(Pascal source code listing begins overleaf) 


1644104 


430 


500 


{PROGRAM BY: } 
{DAVID SOLLY } 
(1402-1545 ALTA VISTA DRIVE} 
{OTTAWA, ONTARIO } 
(CANADA K1G 3P4 ) 
(TEL: (613)-731-2120 ) 


(THIS PORGRAM IS FOR 
(DEMONSTRATING HOW THE 
(LARKEN DISK DRIVE MAY BE 
(ACCESSED FOR STORING AND 
{RETRIEVING DATA WITHIN A 
(HISOFT (TM) PASCAL PROGRAM. 
(THE PROCEDURES DESCRIBED 
(IN THIS PROGRAM ARE VALID 
(FOR BOTH THE ZX SPECTRUM 
(AND THE TIMEX SINCLAIR 
(2068 VERSIONS OF HISOFT 
(PASCL. 
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PROGRAM LARKENDEMO; 


CONST 
LENGTH = 10; 
PN = 23300; (ADDRESS WHERE THE NAME FOR THE SAVE/LOAD) 

{ROUTINES IS STORED} 

PB = 23311; {CONTAINS THE ADDRESS WHERE THE DATA BEGINS} 
PS = 23313; {CONTAINS THE NUMBER OF BYTES USED BY THE DATA} 
CAPSLOCK = 23658; {ADDRESS OF THE CAP SHIFT LOCK CONTROL} 
ON = 8; {SWITCHES CAPSLOCK ON} 

OFF = 0; {SWITCHES CAPSLOCK OFF} 


TYPE 
ENTRY = RECORD 
NAME : ARRAY [1..10] OF CHAR; 
NUMBER : ARRAY (1..10] OF CHAR; 
END; 


VAR 
DIRECTORY : ARRAY C1..LENGTHI OF ENTRY; 
I : INTEGER; 
FINISHED : BOOLEAN; 
ANS : CHAR; 


1013 


640 
650 
660 
670 
680 
690 
700 
710 
720 


960 
970 
980 


1000 
1010 
1020 
1030 
1040 
1050 
1060 


PROCEDURE DOUT; {INVOKES LKDOS WRITE} 
BEGIN 
INLINE (#F3, HCD, #62, #00, #21, #04, #5B, #11, 
#22, #20, #01, #09, #00, #7E, #FE, #00, 
#20, #02, #36, #20, ĦED, #A0, #78, #B1, 
#20, #F3, #3E, #0B, #32, #02, #20, #CD, 
#CC, #00, #2A, HOF, #5B, #22, #33, #20, 
#2A, #11, #5B, #22, #31, #20, HCD, #CF, 
#00, #3A, #64, #00, #FB); 
END; 


PROCEDURE DIN; {INVOKES LKDOS READ} 
BEGIN 

INLINE (#F3, HCD, #62, #00, #21, #04, #5B, #11, 
#22, #20, #01, #09, #00, #TE, #FE, #00, 
#20, #02, $36, #20, ĦED, HAO, #78, #B1, 
#20, #F3, #3E, #0B, #32, #02, #20 
#C6, #00, #2A, HOF, ĦSB, #22, #33, #20, 
HOA, #11, #5B, #22, $31, #20, HCD, #C9, 
#00, #3A, #64, #00, #FB); 


it 
Q 
O 


END; 


PROCEDURE GETNAME; 
VAR 
PROGNM : ARRAY [1..9] OF CHAR; 


BEGIN 

WRITELN; 

POKE (CAPSLOCK, OFF); 

WRITELN ('NAME FOR DISK OPERATION? 7); 

WRITELN; 

WRITE ('9 CHARACTERS MAXIMUM: 7”); 

READLN; 

READLN (PROGNM) ; 

POKE (PN, PROGNM); {STORES THE NAME IN RAM} 
END; 


PROCEDURE DISKSAVE; 
BEGIN 
PAGE; 
WRITELN; 
WRITELN (’LARKEN DISK SAVE ROUTINE’); 
WRITELN; 
GETNAME; 
POKE (PB, ADDR (DIRECTORY)); {START ADDRESS FROM WHERE THE} 
{DATA IS TO BE SAVED} 
POKE (PS, SIZE (DIRECTORY)); {NUMBER OF DATA BYTES TO SAVE} 
DOUT; 
WRITELN (’SAVED!’); 
FOR I := 1 TO 100 DO {PAUSE LOOP} 
END; 
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1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 


Liga 


PROCEDURE DISKLOAD; 


BEGIN 
PAGE; 
WRITELN; 
WRITELN (*LARKEN DISK LOAD ROUTINE’); 
WRITELN; 
GETNAME; 
POKE (PB, ADDR (DIRECTORY)); {START ADDRESS AT WHICH THE} 
{DATA IS TO BE LOADED} 
POKE (PS, SIZE (DIRECTORY)); {NUMBER OF DATA BYTES TO LOAD} 
DIN; 
WRITELN (*LOADED!”); 
FOR I := 1 TO 100 DO (PAUSE LOOP} 
END; 
PROCEDURE FILLDIRECTORY; 


BEGIN 


PAGE; 
POKE (CAPSLOCK, OFF); 
FOR I := 1 TO LENGTH DO 
BEGIN 
WITH DIRECTORY [I] DO 
BEGIN 
WRITELN (’ENTRY NO. ’, I, * OF ', LENGTH); 
WRITELN; 
WRITE ("NAME PLEASE (10 CHARS) '); 
READLN; 
READ (NAME); 
WRITE ('NUMBER PLEASE (10 CHARS) '); 
READLN; 
READ (NUMBER) 
END 
END; 
WRITELN ('DIRECTORV FULL '); 
WRITELN; 
WRITELN (’HIT ANY KEY TO CONTINUE’); 
READLN 


END; 


1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 


FOR I := 


BEGIN 
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PROCEDURE READD IRECTORV; 

BEGIN 
PAGE; 
POKE (CAPSLOCK, OFF); 

1 TO LENGTH DO 


WITH DIRECTORY (11 DO 
BEGIN 


WRITELN (NAME, ' 


', NUMBER); 


WRITELN; 


END 
END; 


PAGE; 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN; 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN; 
WRITELN 
READLN; 
PAGE; 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 
WRITELN 


WRITELN ('END OF DIRECTORV'); 
WRITELN ('HIT ANY KEY TO CONTINUE’); 
READLN 


PROCEDURE SONGANDDANCE; 
BEGIN 


('Larken Disk Access Routine’); 
('for'); 

('HiSoft(TM) Pascal’); 

('for the'); 

('ZX Spectrum’); 

('and the'); 

('Timex Sinclair 2068'); 


('bv'); 
('David Solly’); 
('and'); 
('Larrv Kenny’); 


("Hit any key to continue’); 


("Many ZX Spectrum and TS 2068"); 
('programers have long wanted to’); 
('do serious programing in other’); 
("languages than the resident’); 
("Sinclair Basic. Although such’); 
("languages as Forth, Logo, C,’); 
(*Prolog and Pascal have long been’); 
(*available to Sinclair users one’); 
('of the main drawbacks for’); 
('serious programing in these’); 
("languages has been the lack of’); 
('disk 1/0 routines. This program’); 
('will demonstrate how the Larken'); 
('disk drive system may he’); 
(‘accessed for storing and '); 
('retrieving data within a’); 
(*HiSoft (TM) Pascal program. The’); 


2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
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WRITELN ('procedures described in this '); 
WRITELN; 

WRITELN ('Hit anv kev to continue'); 

READLN; 

PAGE; 

WRITELN (’program are valid for both the’); 
WRITELN (’ZX Spectrum and the Timex’); 
WRITELN (’Sinclair 2068’); 

WRITELN; 

WRITELN (’The two disk drive procedures’); 
WRITELN (’are found in the procedures DIN,’); 
WRITELN (’and DOUT. A third procedure,’); 
WRITELN (’called GETNAME, supplies the’); 
WRITELN ('above procedures with a name for’); 
WRITELN ('storing or retrieving from the’); 
WRITELN ('disk. All these procedures work’); 
WRITELN (’in conjunction with the resident’); 
WRITELN (’procedures ADDR(), SIZE(), and’); 
WRITELN (’POKE()’); 

WRITELN; 

WRITELN (’The authors hope that these’); 
WRITELN (*procedures will stimulate Pascal’); 
WRITELN ('programing for the ZX Spectrum’); 
WRITELN; 

WRITELN (’Hit any key to continue’); 

READLN; 

PAGE; 

WRITELN (’and the Timex Sinclair 2068 and’); 
WRITELN (’encourage other Sinclairests to’); 
WRITELN (’write disk routines for the’); 
WRITELN (’other languages mentioned’); 
WRITELN ('above.'); 

WRITELN; 

WRITELN ("David Solly’); 

WRITELN (’Larry Kenny’); 

WRITELN; 

WRITELN; 

WRITELN ('Hit any key to continue’); 

READLN 


END; 


BEGIN {BODY OF THE PROGRAM} 
REPEAT 


PAGE; 
POKE (CAPSLOCK, ON); 

FINISHED := FALSE; 

WRITELN; 

WRITELN; 

WRITELN ('MENU'); 

WRITELN; 

WRITELN ('SELECT ONE OF THE FOLLOWING'); 
WRITELN ('OPTIONS '); 

WRITELN; 


2570 
2580 
2590 
2600 


WRITELN; 

WRITELN ('1) READ THE INTRODUCTION’); 
WRITELN ('2) CREATE DATA’); 

WRITELN ('3) READ DATA’); 

WRITELN (’4) SAVE DATE TO DISK’); 
WRITELN ('5) LOAD DATA FROM DISK’); 
WRITELN ('6) EXIT THE PROGAM'); 
WRITELN; 

WRITELN; 

WRITE ('MAKE YOUR SELECTION '); 
READLN; 

READ (ANS); 


CASE ANS OF 
1’ : SONGANDDANCE; 
'2' : FILLDIRECTORY; 
73’ 5 READDIRECTORY; 
'4* : DISKSAVE; 
'5' : DISKLOAD; 
'6” : FINISHED := TRUE 
END; 


2810 ` UNTIL FINISHED = TRUE; 


2880 
2890 
2900 
2910 END. 


{FINALE} 

PAGE; 

WRITELN; 

WRITELN; 

WRITELN (’END OF DEMONSTRATION’); 
WRITELN; 

WRITELN 
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The Pascal disk handler described in this article and 
program works only within a compiled Pascal program and, 
regretfull , can not be used to save Pascal source code. The 
procedures DIN, DOUT, and GETNAME are completely modular. 
They may be copied directly from this program into the 
appropriate section of any Pascal program you care to write 
which requires access to LKDOS. The procedures DISKSAVE and 
DISKLOAD may also be used but remember to change the name 
within the parentheses of ADDR() and SIZE() to the name of 
the variable within your program that you wish to save or 
load. The ”.C” extension required by data file saves within 
Basic when using LKDOS is not required by the Pascal disk 
handler, however, it may be good practice to use the 
extension ”.P” to indicate that the data that has been saved 
is intended for a Pascal program rather than a Basic 
program. All the LKDOS error codes are operational and will 
stop your program without crashing providing that the 
compiled code is accessed through a Basic loader program, 
that a PRINT USR is used rather than RANDOMIZE USR and that 
there is at least one line of Basic after the USR call. 
Example: 


10 REM TYPICAL COMPILED PASCAL PROGRAM LOADER 
20 BORDER O: PAPER O: INK 7: CLS 
30 PRINT #4: LOAD ”MYPROG.C1” CODE 27000 
40 CLS: PRINT USR 27000 
50 STOP 
9000 REM SAVE LOADER TO DISK 
9010 PRINT #4: SAVE ”LOADER.B1” LINE 1 


On behalf of Larry and myself I hope that this Pascal disk 
handler will prove to be useful to all who wish to do 
serious programming in Pascal which requires disk access. 


David Solly 
Ottawa, Canada, 
June 15, 1988 
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The following articles are reprints of interesting prograams 


found in other newsmagasines. 


The first two are from Timelinz | 


(Nov/Dec 1787) while the last program comes from the May/Jun | 
| 


1988 issue of Syncware News. 


by DAYID NOQUOQTNHIK 


With only 8K of ROM in the 
T3/1099 it’s Lz:ttle Wander 
that it hasn't a VEriry command. 
This little program will take 
care OF that omizzion. i 

Tniż routine if bested on the 
LOAD routine in ROM. The Change 
is when a byte is rzad orf the 
tape. Instead oF putting the 
byte imto the aperoprite place 
in RAM, it iz compared with the 
Current byte at that address. IF 
their is not a match, tnen the 
routine Exits With ari errar 
mezza32 (R/O), 

Æl all buizz match and the 
VErIF Cation was sucoczzz ful, 
With no mis—match. than the arð 
mesz33e WILL be returned at the 
end af the routin=, 

e ae enter thiz machine 
cade loading routing, With 153 
Spaces or Characters im the rit 
Etatment. 

UD REM asss (133 SPACES) vp v n 07 

29 LET 1⁄=15512 

309 INPUT As 

40 IF As="5" THEN STOP 

Sa LET JY=z1521C00E As-23) +00CE 
AS (2) -23 

69 IF PEEK Xx=27 THEN PORE A, J 

7O LET K=A+1 

89 0 TO 39 


Next RUN the 
enter these HEX digit: 


CD 23 OF 27 11 08 OS CB 12 CB 
a CD 19 70 13 FR BE el a BA 
SE 7F OB FE DA FF 1F 39 42 17 
17 33 23 19 F1 F1 BA D2 7A 7C 
g2 82 CD 19 70 CB 7A 73 22 us 
BE.28 DS 23 17 20 FI FD 3 15 
21 02 49 58 CD is 7C BÝ CD BL 
70 13 Fa OS 1E Sui BB 1A 10 DE 
FE 17 CB 7B 72 33 Fa 19 FS [DI 
22 OL FE 55 38 B2 3F C3 11 39 
AD C3 7A A7 23 BB CF UC EB 21 
7C 48 37 ED 52 30 PBS 1A BY E3 
02 CF 1A 13 2A 14 43 37 ED 32 
ES Da 

Now tne routing is in the 
Lang REM statment; and you Can 
delete lines 29 through 30, DU 
NOT delete tine 13. Arter these 
Lines are deleted, add the next 
lines, 20 through 70. Then SAVE 
this before wou go further, it 
is your VERIFY program. 
23 LET X=-15314 R 
39 FOR I=317%4 TO 31373 
40 POKE I,PEEK X 
sa LET X=Xx+1 
Bð NEMT I 


~d 
A 
fo 
na 
t 


To Use the VERIFY routine, 
it must be Loaded into your 
T3/1000. above RAM-TOP, berore 
anu other program. First Lower 
RAĦ-TOP with these three direct 
commandS.... 

POKE 15382,123 -- ENTER 
POKE 15332,3255 -- ENTER 
NEW -—- ENTER 
Now you may LOAD and RUN your 
VERIFY routine. 


You NOW can type in your 
BRSIC program. When you are 
ready to SAVE it, Just SAVE it 
to tape as you would normally 
SAVE it. To VARIFY, rewind the 
tape to the starr of the 
program, and type in, in direct 
commanded., 

RAND USAR 31744 
And press play an your recorder 
and ENTER an sour computer 

IT WOU saved the proaram 
with Yariablet, tnen CLEARE d 
them berare veriFyin3. or 
changed the variables in any Way 
therm You may get 3 VerxriF?y error 
ÍR ØJ P Qiheruizsc. ir alt is 
Welt, Yw Ll get an 079 M2238392 
to tell you that your program 
has been UERIFIEZD. 


Fros the Sept. 1987 Plotter N/L 


of Clackamas County, Oregon. 





A QUICKY 


DICK WAGNER 
Are you tempted to use UNLESS as a 
conditional? It would be nice and 
you can get the same result as: 
XXX IF NOT (condition) THEN 
(statement) like this: 


10 LET C$="Y" UNLESS INKEY $="N® 
so use this replacement formi: 
10 IF NOT CINKEY $s'N') THEN LET 


Cs$="Y” 


How about the modifier UNTIL? 
Sinclair BASIC doesn’t support UNTIL 


as ine 


10 LET Z=Z-21 UNTIL Y (=52 

try: 

10 LET Z=Z-21 

29 IF NOT (Y(=52) THEN GOTO 190 


LETTER SCRAMBLE 


Basil Loves Joey 


Basil Wentworth 
TS1000 or TS2068 


This is a little game that challenges the player's 
ability to analyze patterns. The LISTing given is 
for TS2068; the modifications necessary for the a 
TS1000 are given in the text, ` 


+ 


Don't panic. I'm not getting more fickle in my old 
age. "Joey” is a name that Jocelyn's family 
inflicted on her when she was very young, and she 
hasn't ever been able to shake it entirely. And 
this game needs a four-letter name, as you will 
see. 


Actually, it needs three words--two of five letters 
each, and one of four letters. So the text could 
have been 


GAMES 
ZX81 
PLAYS 


It doesn't matter in what order the words occur. In 
fact, Jocelyn insists on interpreting this game as 
JOEY LOVES BASIL. I don't mind. R 


I've seen "hardware" analogs of this game for sale 
in drug stores. A little matrix holding a number of 
square tiles, which are free to slide left and 

right, up and down. And one square vacant, to allow 
maneuvering room. The trick is to slide them around 
so that they are in some specified order--whether 
to make a map of Europe, or an alphabet, or 
whatever. 


When you RUN the program, the TS2068 gives you a 
courtesy message while the text is being arranged 
/tn random order. I haven't been able to get this 
effect on the TS1000, due to the blanking of screen 
while it is calculating. But the delay is only 7 

. about 10 seconds, anvwav. z 


FI 


- 


When the randomizing process is ċomplete, the 


scrambled text is displayed, as shown in the 
illustration. Pressing UNSHIFTED $ through 8 makes 
the asterisk move in the direction of the 
respective keyboard arrow, changing places with its” 
neighboring text. Unless the asterisk would move 
"off scale" as a result, in which case a warning 
message is displayed, and the command is otherwise 
ignored. há 


# 
The text to be used is entered as A$ at the. 
beginning of the program, with no spaces, and with 
an asterisk appearing as the last (15th) character. 
The program is straightforward from there. 


* 


- 


It would have been possible to simplify the program | 
a bit, except that I wanted to keep the programs. - 

for the two computers identical, as far as 

possible. However, anyone wanting to improve on the 
program is certainly welcome to do so. I'd like 
your comments: 


mor- e 


PN 
— en 


The changes to >. made for the 131000 are as 
follows: . 


Add 7 


` $ PAST 
_175 SLOW 


aden ee E edt vn OR RS rk 


7 vær - > g 
+ 7'E 5 


— p, 


sat t MA Ae r 


205 FAST 


Change the 1000 section to read 


100 1 1) 


1000 SLOW 

1005 FOR F=1 TO 3 

1010 FOR G=1 TO 10 

1015 NEXT G Å 

1020 PRINT AT 20,0;' sorry--ill 
egal move ” {INVERSE text) 

1030 FOR G=1 TO 10 

1035 NEXT G 

1040 PRINT AT 20,0;" SORRY--ILL 
EGAL MOVE ' ` 
1050 NEXT F 

1055 FAST 

1060 GOTO 170 


And the SAVE section: 


9010 SAVE 'BLJ' 


9020 RUN 


The do-nothing loops at lines 1010-1015 and 
1030-1035 are delays, to give the error message 
time to register. And the outer loop, from 1005 to 
1050, give more or less the same effect as the 
FLASH operation on the TS2068. 


mar . 


4 K 


+ 


A 
AS 


; Lae BASIL Loves JOEY 


CE batia a Ml 


19 LET AsS="RASILLOVESUOEY 2 
20 DIM 85:15 
39 CLs 
42 PRINT AT 3,5, "BE WITH YOU I 
N A MOMENT" 
52 FOR F=1 TO if 
59 LET NzINT 115:2ND+1) 
78 IF BSini <>" ` a TEN so Ta se 
8a LET Bini =As: 
100 NEXT F 
420 CLS 
iza FOR F TJ 5 
139 PRINT AT 5,33F;BSIF:! 
2148 PRINT AT 8,34F;, B85 (F +51 
1S9 PRINT AT 11,32F¡B8$(F+10) 
1689 NEXT F 
170 PRINT AT 20,9; "UNSHIFTED S- 
3 MOVE STAR” 
13a áF INKEYS$<>"" THEN GO TO ié 
129 IF INKEYS$=""" THEN GO TO 192 
200 IF INKEYS<>"“S" AND INKEY 3<> 
"5" AND INKEYS<>"°?" AND INKEYS$< > 
*3" THEN GO TO 182 
Bid 69 i 1ØØ-VAL INKEYS 
S80 IF N=1 OR N=58 OR N=ii THEN 
GO TO 1009 
Sid LET B$INI =B$ iN- 1) 
S20 LET BRiN-1)="2” - 
530 LET N=N-1 + Ta 
539 Go TO 1ið 
6@2 IF N>i0 THEN GO TO 1090 Wá 
610 LET 8%: eons? 
S29 LET B$ŻINsS)i zs'g'  . 
630 LET N=N+5 
632 GO TO 112 4 
782 IF N<5 THEN GO TO 1282 
710 LET BS iN} =<84(N-§) M 
720 LET B$IN-SI ="2" ~ a 
730 LET N=N-5 = We sate 
798 GO TO 1:32 g * hj 
809 IF N=5 OR N=ið OR N=15 THEN 
GO TO 1009 


819 LET BSiN)=B5(N+1) ae 
829 LET BSIN+1) ="s" _ saver 
839 LET N=N+1 T 
890 GÓ TO . 
1918 PRINT AT 20,2; FLASH 1” 
ORRY--ILLEGAL MOVE 

1015 FOR G=1 TO 380: NEXT G 
1959 GO TO 170 


- 





mo 


ds > MOS 


t 
Mera a Hohe 
zaa O p 


a. 


S200HERE SAVE 
“BLU" LINE 1 A e 
.3,12: BEEP 1,12 AP ae 
PRINT °°°" -RUN T 

9042 Denier (BL 

9959 CLS PRINT %77" VERIFY 

9260 SEEP ið; 18: SEEP 1,16 


mo 
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im 


PP. 


NAME 

STU BIRD 
MICHAEL DOVE 
LEO FOSS 

BILL HARMER 
BOB HEWENS 
ROGER HILL 
DAVID HINSON 
CLEM HOLDEN 
IRIS T. HOLDER 
J.W. JARMASZ 
ORVILLE KENNY 
MORRIE KONICK 
JOHN MATHEWSON 


FRANK MACDONALD 


ALAN MOORE , 


ISAAC MORLAND 
DALE MORLAND 


RODERIC PONTEFRACT 
COLIN RAVMOND-JONES 
HARRY ROSEWARNE 
K.D. SCHIEMAN 


DAVID SOLLY 


> , - . — voor 


ca, ee es ee L 


TSUG 

1987-1988 
ADDRESS 

11 SHADY BRANCH TRAIL 

2161 EAST ACRES RD 

1171-2402 AMBLESIDE 

97 RUSKIN ST. 

2435 THORSON AVE. 

170A CRAIG HENRY DRIVE 

153/2166 LOYOLA 

83 RENFREW AVE. 

84 BRADFORD ST. 

767 CLAUDE ST. 

1609-440 GLOUCESTER ST. 

302-1081 AMBLESIDE DR. 

1852 APPLEFORD ST. 


-- 


RR#2 WAKEFIELD | 
927-23 CHARION HULL” 819 
z 

1268 MAITLAND AVE. 


245 IRVING PLACE 


= 


27 LAIRD ST. 


"905 ROSEVIEW AVE. 


18 COLUMBUS y 


{545 ALTA VISTS DR. APT 1402 


ti 4 


TELEPHONE 


836-7611 
745-1779 
820-0018 
722-7184 
828-8802 
723-8822 
744-4611 
235-2139 
828-2329 
745-8159 
232-8460 
820-1523 
746-7869 


459-1162 
776-3080 


226-7118 


725-9208 


- » 
TA 


€ 


224-7959 


224-4547 _ 


828-1449 ` 


749-6277 


731-2120 





- 
— - 
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